how to apply nested do while loop in vba